Top 10k strings from Music Writer (1986)(R.D. Foord Software)(48-128k).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
4 ;"Enter Channel No.":
4 ";
2 y$=y$+("#"
2 x$=x$+y$(e):
2 p
2 oct) + ("N" +
2 n$="&")+(n$
2 low=a-high*256
2 lenght=(a+2
2 lenght+("$"
2 lenght)+("#"
2 lenght +("#"
2 lenght +"_":
2 le=lenght:
2 lch=ch)+(c$+y$
2 lch=ch)+(b$+y$
2 lch=ch)+(a$+y$
2 lastb3=lenght
2 lastb2=lenght
2 lastb1=lenght
2 last=lenght:
2 j)+x$+y$(e+1
2 c$=c$+"!"+y$+"!":
2 c$="")+(c$+x$
2 beate=beate-time
2 beate=beate+(4
2 beate >time
2 beat3=time+beat3:
2 beat3=beat3-time
2 beat3=beat3-(.25
2 beat3=beat3+(4
2 beat3 >time
2 beat2=time+beat2:
2 beat2=beat2-time
2 beat2=beat2-(.25
2 beat2=beat2+(4
2 beat2 >time
2 beat1=time+beat1:
2 beat1=beat1-time
2 beat1=beat1-(.25
2 beat1=beat1+(4
2 beat1 >time
2 bare=bare+1
2 bar3=bar3-1
2 bar3=bar3+1
2 bar2=bar2-1
2 bar2=bar2+1
2 bar1=bar1-1
2 bar1=bar1+1
2 b$=b$+"!"+y$+"!":
2 b$="")+(b$+x$
2 a$=a$+"!"+y$+"!":
2 a$="")+(a$+x$
2 a$+"H",b$,c$
2 M writer
2 ;beat3;" ":
2 ;beat2;" ";
2 ;beat1;" ";
2 ;"TRIPLET":
2 ;"Repeat Marker [erase] ";
2 ;"Press ~t~ to enter"
2 ;"Press ~e~ to change/~q~ to quit"
2 ;"LOADING SCREEN"
2 ;"Enter beats to the bar-";time
2 ;"Code=";y$(u+1
2 ;"Ch3.";bar3;
2 ;"Ch2.";bar2;
2 ;"Ch1.";bar1;
2 ;"Bar-";bare;
2 ;"BAR/BEAT"
2 ;" y/n :";
2 ;" Quit ";
2 ;" ":
2 ;" "
2 ;" "
2 ; ((lastb1
2 88G88G88G88G88G88G88G88G88G888888888888888888888888888888888xxx88888888888888888888888888888xxx88888888888888888888888888888xxx88888888888888888888888888888xxx888888888x888888xx888888x88888888888888888888888888888888888888888hhhh88888888888888888xxxxxxxxxx8xxxxxx888888888888888xxxxxxxxxx8xxxxxx888888888888888xxxxxxxxxx8xxxxxx888888888888888xxxxxxxxxx8iiiiii888888888888888xxxxxxxxxx8iiiiii888888888888888xxxxxxxxxx8888888888888888888888xxxxxxxxxx
2 2222222222222222222222222222
2 ));"-";(y$);" alter beat ";
2 ))))))))))))))))))))))))))))
2 "l")+(c$(lrec
2 "l")+(b$(lreb
2 "l")+(a$(lrea
2 "enter message:-";y$
2 "O6N10ced":
2 "O5N10agf","O5N10fdc":
2 "M writer"
2 "Enter-(1-8)Microdrive/0-Tape";
2 "Enter ~L~ for last marker-";
2 "Enter new code-";x$
2 "Enter file name:-";
2 "Enter file name-";
2 " PRESS (1 to 8)or 0 for tape. ";
2 ":
2 "
1 m writer
1 Created with Ramsoft MakeTZX
1 "m writer"